;Start of program
	XPROG
		;BLOCK
	XMVAR
		;$B1.J
	36
		;$B1.I
	40
	0
		;Assignment
	XPUSH
	L1
	XCHNGE
		;$B1.I
	40
		;Assignment
	XPUSH
	L2
	XCHNGE
		;$B1.J
	36
		;Coblock
	XJUMP
	L3
L4:		;  Costatement
		;BLOCK
		;Block end cleanup
		;End of BLOCK
	XTERMINATE
L5:		;  Costatement
		;Assignment
	XPUSH
	L6
	XCHNGE
		;$B1.I
	40
	XTERMINATE
L7:		;  Costatement
		;BLOCK
		;Block end cleanup
		;End of BLOCK
	XTERMINATE
L10:		;  Costatement
		;Assignment
		;first argument
	XPUSH
	L11
		;second argument
	XGTVAL
		;$B1.J
	36
	XSADD
	XCHNGE
		;$B1.J
	36
	XTERMINATE
L3:		;  epilog of Coblock
	XSPROUT
	L4
	L5
	L7
	L10
	0
		;END COBLOCK
		;Block end cleanup
	XKVAR
		;$B1.J
	36
		;$B1.I
	40
	0
		;End of BLOCK
	XENDP
		;End of program